home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / teach / lbasic / sss.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-10-24  |  468 b   |  29 lines
  1. 2  PRINT"AREA OF SHAPE"
  2. 4  PRINT"THE AREA IS A=?"
  3. 6  INPUT A(0)
  4. 7  GOTO 13
  5. 8  PRINT "NEW NOMBER *L* IF YOU WANT"
  6. 9  GOTO 22
  7. 13  PRINT "a=?"
  8. 14  INPUT A
  9. 15  PRINT"b=?"
  10. 16  INPUT B
  11. 17  PRINT"c=?"
  12. 18  INPUT C
  13. 19  PRINT"d=?"
  14. 20  INPUT D
  15. 21  PRINT"L=?"
  16. 22  INPUT L
  17. 23  LET S=(A+B+L)/2
  18. 24  LET Z=(C+D+L)/2
  19. 25  LET A(1)=SQR(S*(S-A)*(S-B)*(S-L))
  20. 26  LET A(2)=SQR(Z*(Z-C)*(Z-D)*(Z-L))
  21. 30  PRINT"A(1)=";A(1)
  22. 31  PRINT"A(2)=";A(2)
  23. 32  LET A=A(1)+A(2)
  24. 33   PRINT "THE AREA IS A(A)=";A
  25. 41  PRINT "THE OUR AREA IS " ;A(0)
  26. 42  PRINT "THE *L* IS";L
  27. 43  GOTO 8
  28. 100  END
  29.